﻿<!--#include file="config.asp"-->
<%
''' SDCMS QQ登录
''' ==================================================================
''' 版权所有 http://www.sdcms.cn
''' ------------------------------------------------------------------
''' 这不是一个自由软件！您只能在不用于商业目的的前提下对程序代码进行修改和使用；
''' 未经授权不允许对程序代码以任何形式任何目的的再发布。
''' ==================================================================
''' 编写: IT平民
''' 修改：IT平民 in 2012.0

	sub qq_api()
		dim code:code=sdcms.getrnd(10)
		sdcms.setsession "qq_state",code
		dim gourl:gourl=sdcms.fget("url",0)
		if sdcms.strlen(gourl)=0 then gourl=preurl
		sdcms.setsession "api_backurl",gourl
		dim url:url="https://graph.qq.com/oauth2.0/authorize?response_type=code"
			url=url&"&client_id="&qq_appid
			url=url&"&scope="&qq_scope
			url=url&"&redirect_uri="&qq_callback
			url=url&"&state="&code
		sdcms.go url
	end sub
	qq_api
%>